Sample Newuser Questionaire


 OUTPUTANSWER " " 2
 POSTINFO
 CLEARSCREEN
 CHANGECOLOR 12 0
 DISPLAY " Please enter your full name|"
 CHANGECOLOR 10 0
 DISPLAY "["
 CHANGECOLOR 11 0
 DISPLAY "------------------------------"
 CHANGECOLOR 10 0
 DISPLAY "]| "
 ASK 30 1
 OUTPUTANSWER "NAME      : " 1
 DISPLAY "|"
 CHANGECOLOR 12 0
 DISPLAY " Your street name & No.|"
 CHANGECOLOR 10 0
 DISPLAY "["
 CHANGECOLOR 11 0
 DISPLAY "------------------------------"
 CHANGECOLOR 10 0
 DISPLAY "]| "
 ASK 30 1
 OUTPUTANSWER "ADDR1     : " 1
 DISPLAY "|"
 CHANGECOLOR 12 0
 DISPLAY " Address Line 2|"
 CHANGECOLOR 10 0
 DISPLAY "["
 CHANGECOLOR 11 0
 DISPLAY "------------------------------"
 CHANGECOLOR 10 0
 DISPLAY "]| "
 ASK 30 1
 OUTPUTANSWER "ADDR2     : " 1
 DISPLAY "|"
 CHANGECOLOR 12 0
 DISPLAY " Town|"
 CHANGECOLOR 10 0
 DISPLAY "["
 CHANGECOLOR 11 0
 DISPLAY "-------------------------"
 CHANGECOLOR 10 0
 DISPLAY "]| "
 ASK 25 1
 OUTPUTANSWER "TOWN      : " 1
 DISPLAY "|"
 CHANGECOLOR 12 0
 DISPLAY "Age|"
 CHANGECOLOR 10 0
 DISPLAY "["
 CHANGECOLOR 11 0
 DISPLAY "--"
 CHANGECOLOR 10 0
 DISPLAY "]| "
 ASK 2 1
 OUTPUTANSWER "AGE       : " 1
 DISPLAY "|"
 CHANGECOLOR 12 0
 DISPLAY "Interests in BBS's|"
 CHANGECOLOR 10 0
 DISPLAY "["
 CHANGECOLOR 11 0
 DISPLAY "----------------------------------------------------------------------"
 CHANGECOLOR 10 0
 DISPLAY "]| "
 ASK 70 1
 OUTPUTANSWER "INTRST    : " 1
 DISPLAY "|"
 CHANGECOLOR 12 0
 DISPLAY "Where did you heard of Dregal|"
 CHANGECOLOR 10 0
 DISPLAY "["
 CHANGECOLOR 11 0
 DISPLAY "-----------------------------------"
 CHANGECOLOR 10 0
 DISPLAY "]| "
 ASK 35 1
 OUTPUTANSWER "WHERE     : " 1
 DISPLAY "|"
 CHANGECOLOR 12 0
 DISPLAY "Other boards you call|"
 CHANGECOLOR 10 0
 DISPLAY "["
 CHANGECOLOR 11 0
 DISPLAY "----------------------------------------------------------------------"
 CHANGECOLOR 10 0
 DISPLAY "]| "
 ASK 70 1
 OUTPUTANSWER "OTHER     : " 1
 DISPLAY "|"
 CHANGECOLOR 12 0
 DISPLAY "Are you a Sysop|"
 GETCHOICE YN 1
 If 1 = "Y"
 DISPLAY " Name of your board|"
 CHANGECOLOR 10 0
 DISPLAY "["
 CHANGECOLOR 11 0
 DISPLAY "----------------------------------------"
 CHANGECOLOR 10 0
 DISPLAY "]| "
 ASK 40 1
 OUTPUTANSWER "SYSOP     : " 1
 DISPLAY "|"
 CHANGECOLOR 12 0
 DISPLAY "Hours/Speeds of operation|"
 CHANGECOLOR 10 0
 DISPLAY "["
 CHANGECOLOR 11 0
 DISPLAY "---------------"
 CHANGECOLOR 10 0
 DISPLAY "]| "
 ASK 15 1
 OUTPUTANSWER "OPER      : " 1
 DISPLAY "|"
 CHANGECOLOR 12 0
 DISPLAY "Node number [if any]|"
 CHANGECOLOR 10 0
 DISPLAY "["
 CHANGECOLOR 11 0
 DISPLAY "---------------"
 CHANGECOLOR 10 0
 DISPLAY "]| "
 ASK 15 1
 OUTPUTANSWER "NODE      : " 1
 DISPLAY "|"
 ENDIF
 SetSecurity 10
 Setflag a1 off
 QUIT